ISREDIT MACRO PROCESS                                                   00010000
    CONTROL NOFLUSH NOPROMPT NOLIST NOMSG                               00020000
/*  CONTROL MSG LIST CONLIST SYMLIST                                    00030000
    ISPEXEC CONTROL ERRORS RETURN                                       00040000
ISPEXEC VGET (AROW ACOL) PROFILE                                        00050000
ISREDIT RESET                                                           00060000
ISREDIT CURSOR = (AROW, ACOL)                                           00070000
SET &RC = &LASTCC                                                       00080000
IF &RC = 0 THEN +                                                       00090000
   DO                                                                   00100000
     SET &ZEDSMSG = &STR(BACK WHERE YOU WERE)                           00110000
     SET &ZEDLMSG = &STR()                                              00120000
     ISPEXEC SETMSG MSG(ISRZ000)                                        00130000
     EXIT CODE(0)                                                       00140000
   END                                                                  00150000
ELSE +                                                                  00160000
   DO                                                                   00170000
   IF &RC = 4 THEN +                                                    00180000
    DO                                                                  00190000
     SET &ZEDSMSG = &STR(POSITION NOT FOUND FELLA)                      00200000
     SET &ZEDLMSG = &STR(RETRY OR PF5)                                  00210000
     ISPEXEC SETMSG MSG(ISRZ000)                                        00220000
     EXIT CODE(0)                                                       00230000
   END                                                                  00240000
   ELSE +                                                               00250000
   IF &RC > 4 THEN +                                                    00260000
    DO                                                                  00270000
     SET &ZEDSMSG = &STR(PUT STRING IN QUOTES)                          00280000
     SET &ZEDLMSG = &STR(PUT QUOTES AROUND THE STRING)                  00290000
     ISPEXEC SETMSG MSG(ISRZ000)                                        00300000
     EXIT CODE(1)                                                       00310000
   END                                                                  00320000
END                                                                     00330000
STOP: +                                                                 00340000
END                                                                     00350000
